home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / rcheck.arc / PRINT1.CMD < prev    next >
Encoding:
Text File  |  1984-12-18  |  896 b   |  23 lines
  1. SET ECHO OFF
  2. *(    PRINT1.CMD and PRINT11.CMD    Print 1 category / by date            )
  3. *(    RICHARD T. TRABAND                                                  )
  4. *(                                                                        )
  5. NEW
  6. TYPE b:BUDCAT1.MNU
  7. FILLIN BUDC USING "ENTER BUDGET CATEGORY  " AT 4 20
  8. IF MAIN = 11 THEN
  9.    INPUT b:BUDCATDT.CMD
  10.    OUTPUT PRINTER
  11.       PRINT PRINTRPT SORTED BY DATE TRANCODE CKNUM DESCR +
  12.             WHERE BUDCAT = .BUDC AND DATE GE .BEGDAT AND DATE LE .ENDDAT
  13.    OUTPUT TERMINAL
  14. ENDIF
  15. IF MAIN = 1 THEN
  16.    OUTPUT PRINTER
  17.       PRINT PRINTRPT SORTED BY DATE TRANCODE CKNUM DESCR +
  18.             WHERE BUDCAT = .BUDC
  19.    OUTPUT TERMINAL
  20. ENDIF
  21. FILLIN MAIN USING "PRESS [ENTER] TO CONTINUE  "
  22. QUIT TO b:PRINT.CMD
  23.